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"TITLE WMGCRIFIL = CREATES A FILE 10 PAGES LONG 
“IDENT 'V04 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS, 
ALL RIGHTS RESERVED. 


THIS SOFTWARE +4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE THE TER F H 


R 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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TITLE CRTFIL : CREATE A FILE 

“LIST. HEB 

NOPAGES== : LENGTH OF FILE 

-PSECT DATA NOEXE ,WRT 


; CREATE A FILE 


0000000A 
0000 


NEWFAB: SFAB - 
FNM=<MMGTST.DAT;1>, e 
ALQ=NOPAGES, 
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STOR 
TE F 
“BYTE F 
0 BLE 
0 04 -=$$. TAB+FABSL_FOP 
00004" 000 ADDRESS $$. TMP 
0000010 00 -=$$. TAB+FABSL_ALQ 
00000004" 1 ADDRESS NOPAGES 
00 0 91 “WORD 0 
4 1 “BYTE $$. TMP 
0 001 “BYTE $$. TMP 
00000000" 001 ; S) 
0 001 
0 001 BYTE 
1 001 
000 


“BYTE FABSC_FIX 


ooooo 


$500 
00000000' ADDRESS 0 
a ; WORD 
“BYTE 
[BYTE 
0000904 - £88, TAB*F ABSU_GBC 
3 -BYTE | <<O@FABSV_LNM_MODE> + <O@FABSV_CHAN_MODE> + - 
000000 “PSECT SRMSNAM 
31 3B 54 41 44 2E 54 53 54 47 4D a 0 “ASCII XMMGTST DAT; 1% 
0 *=$8. TAB+FABSL_FNA 
-=$$. TAB+F ABSB_ FNS 


“BYTE $$. TMPR1 
=$$. TABEND 
: NEWRAB: $RAB_ = 

FAB=NEWFAB, - 
4 RBF =NEWFAB, ~ 
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C -BYTE 

Dd -BYTE FABSC_SEQ 
4 $$. TMP 
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; CREATE A FILE 16-SEP-1984 02:05:13 YAX/VMS Macro V04-00 P 
ate BAe EMMGTST. SREIAMGCRTFIL.MAR; 1 oh 3) 


55 RSZ=512 
. SAVE LOCAL BLOCK 
*PSECT $ABS$;ABS 
900 RESTORE 
“BYTE RABSC_BID 
4 “BYTE RABSC~BLN 
24 -BLKB RABSC BLN=2 
4 009 -=$$. TAB+RABSL_ROP 
00° 24 [ADDRESS $$. TMP 
6 6 .=$$. TAB+RABSL_CTX 
0 * 006 “ADDRESS 0 
00 C * =$$. TAB+RABSB_RAC 
E “BYTE RABSC_SEQ 
F “BYTE 
"WORD 
07 7wORD 512 
900 ' 07 ADDRESS 
8000000" bore ADDRESS ier 
900000 ' 6 6 “ADDRESS 
4 "BYTE 
et 
O87 “BYTE 
00000000" 0088 “ADDRESS 0 
00000000' 08¢ “ADDRESS NEWF AB 
00000000' aust i “ADDRESS 0 
0000 909 37 .PSECT MAIN EXE, NOWRT 
009 59 START:: 
0000 00 60 .WORD 0 
0 61 $CREATE NEWE AB ;MAKE A NEW FILE & OPEN IT 
00000000'EF oF 000 PUSHAL NEWFAB 
00000000'GF 01 FB 000 CALLS #$8. THP1, G*SYSSCREATE 
33 50 £9 O00F 62 BLBC E XIT IF ERROR ENCOUNTERED 
001 é SCONNECT NEWRAB SEONNECT RAB TO FAB 
0000050'EF DF 001 PUSHAL NEWRAB 
00000000'GF 01 FB 001 CALLS #$$.1MP1,G*SYSSCONNECT 
2350 €9 OO1F 64 BLBC ex sEXIT IF ERROR ENCOUNTERED 
55. OA 00 00 : 65 MOVL  #NOPAGES,RS 'SET COUNT FOR PAGES TO WRITE 
0 66 100$: $WRITE RAB=NEWRAB [WRITE OUT A PAGE 
00000050'EF oF 5 PUSHAL NEWRAB 
00000000' GF g1 F ALLS #$$.1MP1,G*SYSSWRITE 
10 : E 67 BLBEC OséaR EXIT sEXIT IF ERROR ENCOUNTERED 
60 55 «sF5 68 SOBGTR R5.100$ [LOOP FOR M 
; 69 $CLOSE NEUE AB CLOSE Pre 
00000000'EF oF PUSHAL NEWFAB 
00000000'GF 01 FB 003 CALLS #$$.THP1.G*SYSSCLOSE 
4 70 EXIT: $EXIT_S R 
50 DD 004 PUSHL RO 
00000000'cF 01 FB 47 ‘ CALLS #1,G*SYSSEXIT 
bee 72 .END — START 
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SYSSCONNECT 
SYSSCREATE 
SYSSEXIT 
SYSSWRITE 
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Attributes 

NOPIC USR 
NOPIC USR 
NOPIC USR 
NOPIC  USR 
NOPIC  USR 


CON 
CON 
CON 
CON 
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AX/VM 
TS SRE 


MMGTS 


aa 


OSHR NOEXE 
OSHR NOEXE 
OSHR EXE 
EXE 
EXE 


00 Page 
FIL.MAR;1 


NORD 
RD 


RD W VE 
RD NOWRT NOVE 


caret ; CREATE A FILE 
VAK-11 Macro Run Statistics 
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! Performance indicators ! 
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Phase Page faults CPU Time 


Elapsed Time 


Initialization 17 0:00: 8.9 : 93 
Command processing 7 :00:00. :00: +08 
Pass 1 205 :00:04.1 :00:12. 

Symbol table sort 8 :00:00.29 :00:00.63 
ass 4 :00:00.81 :00:03.07 
Symbol table output :00:00.04 :00:00. $ 
Psect synopsis output :00:00.03 :00:00. 

Cross-reference output : B be. 9 0:00:00.00 
Assembler run totals 36 7:00:06. 0:00:22.64 


37485 bytes (74 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 316 non-local and 1 local symbols. 
72 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

4 pages of virtual memory were used to define 18 macros. 


The yorking sgt Limit was 1050 pages. 
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H Macro Library statistics : 


Macros defined 


Macro Library name 


.$255$DUA28:(CSYS.OB8JJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB;2 15 
TOTALS (all Libraries) 15 


561 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MMGCRTFIL/OBJ=OBJ$:MMGCRTIFIL MSRC$:MMGCRTF IL/UPDATE=(ENH$:MMGCRIF IL) +EXECML$/LIB 
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